Stop service

Otázka od: Martin Dubovsky

30. 10. 2003 11:38

Jakym zusobem stopnout sluzbu nevite nekdo?


--
Potrebujete vice prostoru pro vase stranky?
Ptejte se na http://sluzby.volny.cz/cs/product/ftp_paid






----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)

Odpovedá: Lukacs Peter

30. 10. 2003 12:03

co treba tohle?
zapisuje mi to i do event logu.
function StopSer: cardinal;
begin
 SvcMgr:=OpenSCManagerA(PAnsiChar('fst1720a'), nil,
 SC_MANAGER_ALL_ACCESS);
 if SvcMgr=0 then
  begin
   result:=GetLastError;
   ErrFunc:='OpenSCManager';
 end
 else
  begin
   Svc:=OpenServiceA(SvcMgr, PAnsiChar('SLnet'), SERVICE_STOP);
   if Svc=0 then
    begin
     result:=GetLastError;
     ErrFunc:='OpenService';
    end
    else
     begin
      CS:=ControlService(Svc, SERVICE_CONTROL_STOP, ServiceStatus);
      if not CS then
       begin
        result:=GetLastError;
      ErrFunc:='ControlService';
       end
       else
       begin
        result:=0;
       end;
      CloseServiceHandle(Svc);
     end;
    CloseServiceHandle(SvcMgr);
   end;
 if Result<>0 then
 begin
   Form1.EL.EventType := etError;
   
Form1.EL.LogEvent(Format('Function : %s Error : %d %s'+#13+#10+'Could not
stop.',
[ErrFunc, result,
   SysErrorMessage(result)]));
   Form1.EL.EventType := etInformation;
 end
 else
 Form1.EL.LogEvent('OK, service stoped.');
end;


-----Original Message-----
From: Martin Dubovsky [mailto:dmartin@post.cz]
Sent: Thursday, October 30, 2003 11:20 AM
To: delphi-l@clexpert.cz
Subject: Stop service


Jakym zusobem stopnout sluzbu nevite nekdo?


--
Potrebujete vice prostoru pro vase stranky?
Ptejte se na http://sluzby.volny.cz/cs/product/ftp_paid







----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)

Odpovedá: Jaroslav Bruzek

30. 10. 2003 12:23

Zdarec,

ja to resim pomoci prikazu "NET", pokud ho budes chtit zase spustit, tak tam
dej "NET START"

Jarda

procedure StopService(ServiceName : String);
Var StartupInfo : TStartupInfo;
    ProcessInfo : TProcessInformation;
Begin
  with StartupInfo do
    begin
     cb:=sizeof(StartupInfo);
     lpReserved:=nil;
     lpDesktop:=nil;
     lpTitle:=nil;
     dwX:=0; dwY:=0;
     dwFlags:=STARTF_USESHOWWINDOW;
     wShowWindow:=SW_HIDE;
     cbReserved2:=0;
     lpReserved2:=nil;
    end;
  CreateProcess(nil,PCHAR('NET STOP '+ServiceName),
nil,nil,false,CREATE_SEPARATE_WOW_VDM,nil, nil, StartupInfo, ProcessInfo);
End;



-----Original Message-----
From: Martin Dubovsky

Jakym zusobem stopnout sluzbu nevite nekdo?


--
Potrebujete vice prostoru pro vase stranky?
Ptejte se na http://sluzby.volny.cz/cs/product/ftp_paid








----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)

Odpovedá: Petr Langer

30. 10. 2003 12:49

Najdi si treba sadu komponent JgNT a tam to mas i s ukazkou.

HTH,
    Petr Langer

----- Original Message -----
From: "Martin Dubovsky" <dmartin@post.cz>
Subject: Stop service


> Jakym zusobem stopnout sluzbu nevite nekdo?






----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)